home *** CD-ROM | disk | FTP | other *** search

---

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour43.gif

< prev

next >

Graphics Interchange Format  |  1996-01-24  |  4KB  |  400x341  |  1-bit (2 colors)

Labels: text | screenshot | font | document
OCR: on countFrontierFiles (path) local (matchesFound = 0) «number of UserLand Frontier files we found on counter (folder) # fileloop (f in folder) if file.isFolder (f) # counter (f) else # msg (file.fileFromPath (f)) if file.creator (f) == 'LAND' matchesFound++ counter (file.folderFromPath (path)) if matchesFound == 0 local (s = file.fileFromPath (file.folderFromPath (path))) # s = "There are no Frontier files in the " + s + " folder." dialog.alert (s) else local (s = file.fileFromPath (file.folderFromPath (path))) $ = "There were " + matchesFound + " Frontier files in the " + $ + " folder." dialog.alert (s)

---